#|This file contains argument lists for many of the functions exported
in the CCL package. It is used by the Fred c-x c-a  command.
|#

("%HGET-BYTE" (FUNCTION) (ARGLIST H &OPTIONAL (OFFSET 0)))
("%HGET-LONG" (FUNCTION) (ARGLIST H &OPTIONAL (OFFSET 0)))
("%HGET-PTR" (FUNCTION) (ARGLIST H &OPTIONAL (OFFSET 0)))
("%HGET-SIGNED-BYTE" (FUNCTION) (ARGLIST H &OPTIONAL (OFFSET 0)))
("%HGET-SIGNED-WORD" (FUNCTION) (ARGLIST H &OPTIONAL (OFFSET 0)))
("%HGET-WORD" (FUNCTION) (ARGLIST H &OPTIONAL (OFFSET 0)))
("%HPUT-BYTE" (FUNCTION) (ARGLIST H VALUE &OPTIONAL (OFFSET 0)))
("%HPUT-LONG" (FUNCTION) (ARGLIST H VALUE &OPTIONAL (OFFSET 0)))
("%HPUT-PTR" (FUNCTION) (ARGLIST H VALUE &OPTIONAL (OFFSET 0)))
("%HPUT-WORD" (FUNCTION) (ARGLIST H VALUE &OPTIONAL (OFFSET 0)))
("%INC-PTR" (FUNCTION) (ARGLIST P &OPTIONAL (BY 1)))
("BUFFER-BWD-SEXP" (FUNCTION) (ARGLIST BUF &OPTIONAL (POS (MARK-POSITION BUF))
                                       &AUX CH))
("BUFFER-CHAR-POS" (FUNCTION) (ARGLIST W CHAR-OR-STRING &KEY 
          (START (MARK-POSITION W)) (END (BUFFER-SIZE W)) FROM-END &AUX POS))
("BUFFER-COLUMN" (FUNCTION) (ARGLIST BUFFER &OPTIONAL POS))
("BUFFER-LINE" (FUNCTION) (ARGLIST BUF &OPTIONAL POS))
("BUFFER-NOT-CHAR-POS" (FUNCTION) (ARGLIST W CHAR-OR-STRING 
       &KEY (START (MARK-POSITION W)) (END (BUFFER-SIZE W)) FROM-END &AUX POS))
("BUFFER-STRING-POS" (FUNCTION) (ARGLIST W STRING &KEY (START (MARK-POSITION W))
 (END (BUFFER-SIZE W)) FROM-END &AUX POS))
("CHOOSE-FONT-DIALOG" (FUNCTION) (ARGLIST &OPTIONAL FONT-SPEC))
("COMPILE-FILES" (FUNCTION) (ARGLIST VOLUME NAMES &OPTIONAL STARTING-FILE))
("CONSTRUCT-FILE-NAME" (FUNCTION) (ARGLIST VOLUME NAME &OPTIONAL TYPE))
("CONSTRUCT-FILE-NAMES" (FUNCTION) (ARGLIST VOLUME NAMES TYPE &OPTIONAL 
                            NAME-SPEC))
("COPY-RECORD" (FUNCTION) (ARGLIST SOURCE-RECORD RECORD-TYPE &OPTIONAL
                   DEST-RECORD &AUX (SIZE (RECORD-LENGTH RECORD-TYPE))))
("DAYLIGHT-SAVING-TIME-P" (FUNCTION) (ARGLIST &OPTIONAL 
                             (UNIV-TIME (GET-UNIVERSAL-TIME))))
("DEFOBJECT" (FUNCTION) (ARGLIST NAME &REST PARENTS))
("DEFPASCAL" (FUNCTION) (ARGLIST NAME ARGLIST &BODY (BODY DECLS)))
("DEFRECORD" (FUNCTION) (ARGLIST RECORD-NAME &REST SLOT-DESCRIPTIONS))
("DELQ" (FUNCTION) (ARGLIST ITEM A-LIST &OPTIONAL (N 0 NP)))
("DEVICES" (FUNCTION) (ARGLIST &AUX NAMES))
("DIRECTORIES-IN-DIRECTORY" (FUNCTION) (ARGLIST PATH &AUX NAMES))
("DISPOSE-RECORD" (FUNCTION) (ARGLIST RECORD))
("DO-ALL-OBJECTS" (FUNCTION) (ARGLIST (VAR RESULT-FORM) &BODY BODY &ENVIRONMENT 
                                  ENV))
("DO-DIRECTORIES-IN-DIRECTORY" (FUNCTION) (ARGLIST (DIR PATH &OPTIONAL RESULT) 
                                                   &BODY BODY))
("DO-FILES-IN-DIRECTORY" (FUNCTION) (ARGLIST (FILE DIR &OPTIONAL RESULT) 
                                             &BODY BODY))
("DO-OBJECT-FUNCTIONS" (FUNCTION) (ARGLIST (VAR OBJECT RESULT-FORM)
                                           &BODY BODY &ENVIRONMENT ENV))
("DO-OBJECT-VARIABLES" (FUNCTION) (ARGLIST (VAR OBJECT RESULT-FORM) 
                                           &BODY BODY &ENVIRONMENT ENV))
("EJECT-DISK" (FUNCTION) (ARGLIST PATH))
("EJECTEDP" (FUNCTION) (ARGLIST PATH))
("FIELD-INFO" (FUNCTION) (ARGLIST RECORD-TYPE FIELD-NAME))
("FILE-LOCKED-P" (FUNCTION) (ARGLIST PATH))
("FILES-IN-DIRECTORY" (FUNCTION) (ARGLIST PATH &AUX NAMES))
("FLUSH-VOLUME" (FUNCTION) (ARGLIST PATH))
("FONT-INFO" (FUNCTION) (ARGLIST &OPTIONAL FONT-SPEC &AUX FF MS))
("GET-RECORD-FIELD" (FUNCTION) (ARGLIST RECORD RECORD-TYPE FIELD-NAME))
("GET-STRING-FROM-USER" (FUNCTION) (ARGLIST &OPTIONAL 
(TITLE "Please type in a string.") (INITIAL-STRING "") (OK-STRING "    OK    ")
               (CANCEL-STRING " Cancel ")  POSITION (SIZE 6553935)))
("LINES-IN-BUFFER" (FUNCTION) (ARGLIST BUF))
("LOAD-COMPILED-FILES" (FUNCTION) (ARGLIST VOLUME FILES &OPTIONAL 
                        (TYPE "fasl") FIRST-FILE))
("LOAD-FILES" (FUNCTION) (ARGLIST VOLUME FILES &OPTIONAL TYPE FIRST-FILE))
("LOCK-FILE" (FUNCTION) (ARGLIST PATH))
("MAKE-RECORD" (FUNCTION) (ARGLIST RECORD-TYPE &REST REST &KEY 
           (STORAGE (RECORD-STORAGE RECORD-TYPE)) &ALLOW-OTHER-KEYS 
            &AUX (SIZE (RECORD-LENGTH RECORD-TYPE)) RET))
("MESSAGE-DIALOG" (FUNCTION) (ARGLIST MY-STRING &OPTIONAL DIALOG-POSITION 
                       (DIALOG-SIZE 6553935)))
("MODAL-DIALOG" (FUNCTION) (ARGLIST DIALOG-OBJECT &OPTIONAL 
                 (CLOSE-ON-EXIT T) &AUX RET))
("PRINT-DB" (FUNCTION) (ARGLIST &REST FORMS &AUX))
("PRINT-RECORD" (FUNCTION) (ARGLIST RECORD RECORD-TYPE &OPTIONAL (CURRLEVEL 0)))
("REAL-FONT" (FUNCTION) (ARGLIST &OPTIONAL FONT-SPEC &AUX FF MS PORT))
("RECORD-DEFAULT" (FUNCTION) (ARGLIST TYPE))
("RECORD-FIELDS" (FUNCTION) (ARGLIST RECORD-TYPE))
("RECORD-INFO" (FUNCTION) (ARGLIST TYPE &OPTIONAL (ERRORP NIL)))
("RECORD-LENGTH" (FUNCTION) (ARGLIST RECORD-TYPE &AUX KIND))
("RECORD-STORAGE" (FUNCTION) (ARGLIST RECORD-TYPE))
("RECORD-TYPE-P" (FUNCTION) (ARGLIST TYPE))
("RETURN-FROM-MODAL-DIALOG" (FUNCTION) (ARGLIST VALUE))
("RLET" (FUNCTION) (ARGLIST &REST CALL))
("RREF" (FUNCTION) (ARGLIST RECORD ACCESSOR &KEY (STORAGE NIL STORAGE-SUPPLIED) 
                           &AUX SLOTS))
("RSET" (FUNCTION) (ARGLIST RECORD ACCESSOR VALUE &KEY 
              (STORAGE NIL STORAGE-SUPPLIED) &AUX SLOTS))
("SET-RECORD" (FUNCTION) (ARGLIST RECORD RECORD-TYPE &REST ARGS))
("SET-RECORD-FIELD" (FUNCTION) (ARGLIST RECORD RECORD-TYPE FIELD-NAME VALUE))
("STRING-WIDTH" (FUNCTION) (ARGLIST STRING &OPTIONAL FONT-SPEC &AUX FF MS))
("UNLOCK-FILE" (FUNCTION) (ARGLIST PATH))
("UPDATE-COMPILED-FILES" (FUNCTION) (ARGLIST VOLUME NAMES &OPTIONAL 
          LOAD-CHANGES? &AUX SOURCE-FILE-NAMES FASL-FILE-NAMES UPDATED-FILES))
("WITH-DEREFERENCED-HANDLES" (FUNCTION) (ARGLIST SPECLIST &BODY BODY))
("WITH-MARK" (FUNCTION) (ARGLIST (MARK-VAR PLACE &OPTIONAL POSITION BACKWARD-P) 
                &BODY BODY &AUX (MARK (GENSYM))))
("WITH-POINTERS" (FUNCTION) (ARGLIST SPECLIST &BODY BODY))
("WITH-PORT" (FUNCTION) (ARGLIST PORT &REST BODY))
("WITH-PSTRS" (FUNCTION) (ARGLIST SPECLIST &BODY BODY))
("WITH-RETURNED-PSTRS" (FUNCTION) (ARGLIST SPECLIST &BODY BODY))
("Y-OR-N-DIALOG" (FUNCTION) (ARGLIST &REST ARGS))
("ZONE-POINTERP" (FUNCTION) (ARGLIST THING &AUX ZONE))